home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Src / bootstrap.h < prev    next >
C/C++ Source or Header  |  1993-06-24  |  1KB  |  37 lines

  1. /* ******************************************************************** */
  2. /*  bootstrap.h      Copyright (C) Codemist and University of Bath 1989 */
  3. /*                                                                      */
  4. /* C-bootstrapping prototypes and defines                               */
  5. /* ******************************************************************** */
  6.  
  7. /*
  8.  * Change Log:
  9.  *   Version 1, December 1989
  10.  */
  11.  
  12. #ifndef BOOTSTRAP_H
  13. #define BOOTSTRAP_H
  14.  
  15. /* Cbstracted class accessors (not used averywhere...) */
  16.  
  17. #define CLASS_NAME(class)          (class->CLASS.name)
  18. #define CLASS_SUPER(class)         (class->CLASS.superclass)
  19. #define CLASS_SUB(class)           (class->CLASS.subclasses)
  20. #define CLASS_DESCS(class)         (class->CLASS.slot_table)
  21.  
  22. extern LispObject symbol_name;
  23. extern LispObject symbol_superclass;
  24. extern LispObject symbol_slot_descriptions;
  25.  
  26. extern void gen_class(LispObject *,LispObject *);
  27. void set_class_size(LispObject *, LispObject, LispObject, int);
  28.  
  29. extern void initialize_boot_classes(LispObject *);
  30.  
  31. extern LispObject Null;
  32.  
  33. #define N_SLOTS_IN_CLASS N_SLOTS_IN_STRUCT(struct class_structure)
  34. #define N_SLOTS_IN_THREAD N_SLOTS_IN_STRUCT(struct thread_structure)
  35.  
  36. #endif
  37.